package Myth;

sub test
{
    my $var = shift;
    print $var;
}

1;